﻿Public Class clsTest
    Dim timCheck As Timer
    Dim web As WebBrowser
    Dim i As Integer = 0

    Public Sub New(ByVal frm As frmMain)
        

    End Sub

    Public Sub init()
        Debug.Print("aaaaaaaaa")
        timCheck = New Timer
        timCheck.Enabled = True
        timCheck.Interval = 1000
        AddHandler timCheck.Tick, AddressOf timCheck_Tick
        web = New WebBrowser
        AddHandler web.DocumentCompleted, AddressOf web_DocumentCompleted
        web.Navigate("http://facebook.com")
    End Sub

    Public Sub timCheck_Tick()
        i = i + 1
        Debug.Print(i)
        'Threading.Thread.ResetAbort()
    End Sub

    Public Sub web_DocumentCompleted()
        'Debug.Print(web.Document.Body.InnerHtml)
    End Sub
End Class
